Option Explicit
Sub A_Sample005()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRng1 = Range("A1")			'@xs
    'ǳƨ즹
    Set myRng2 = myRng1.CurrentRegion
    MsgBox myRng2.Address
    Set myRng1 = Nothing			'
    Set myRng2 = Nothing
End Sub
